﻿Imports TorneosBackEnd

Public Class Form1

    Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim juego As String = Me.TxtBuscar.Text

        Dim negocio As New JuegoNegocio
        Dim juegos As Collection = negocio.buscarPorNombre(juego)
        Me.Muestra.DataSource = juegos
        Me.Muestra.EditMode = False
        Me.Muestra.Columns(0).HeaderText = "ID"
        Me.Muestra.Columns(1).HeaderText = "Nombre"
        Me.Muestra.Columns(2).HeaderText = "Version"
        Me.Muestra.Columns(3).HeaderText = "Fabricante"

    End Sub
End Class